home *** CD-ROM | disk | FTP | other *** search
/ Max Calendar 2002 / Max Calendar 2002.iso / pc / Data_2 / Utility2.dxr / 00128_Bottone DeskTop10.ls < prev    next >
Encoding:
Text File  |  2001-10-17  |  764 b   |  26 lines
  1. global gAdrs
  2.  
  3. on mouseUp
  4.   if integer(getAt(getAt(the desktopRectList, 1), 3)) < 1024 then
  5.     DestFile = getOSDirectory() & "\ott800_2.bmp"
  6.     SourceFile = gAdrs & "ImgDesk2\Img800\ott800_2.bmp"
  7.     Ok = baCopyFile(SourceFile, DestFile, "Always+")
  8.     if Ok <> 0 then
  9.       sprite(25).visible = 1
  10.       sprite(26).visible = 1
  11.       updateStage()
  12.     end if
  13.     baSetWallpaper(getOSDirectory() & "\ott800_2.bmp", 1)
  14.   else
  15.     DestFile = getOSDirectory() & "\ott124_2.bmp"
  16.     SourceFile = gAdrs & "ImgDesk2\Img1024\ott124_2.bmp"
  17.     Ok = baCopyFile(SourceFile, DestFile, "Always+")
  18.     if Ok <> 0 then
  19.       sprite(25).visible = 1
  20.       sprite(26).visible = 1
  21.       updateStage()
  22.     end if
  23.     baSetWallpaper(getOSDirectory() & "\ott124_2.bmp", 1)
  24.   end if
  25. end
  26.